{***************************************************************
    SpyGestion  Copyright (C) 2008 Christophe KOALI <nature2gas@gmail.com>
    
    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.
    
    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.
    
    You should have received a copy of the GNU General Public License
    along with this program.  If not, see <http://www.gnu.org/licenses/>.
    
****************************************************************}
unit L50_modSondagesPlayer;

interface

uses modClasses,
     L10_modClassesAlerteAtt,
     L20_modClassesConstruction,
     L30_modClassesWithDB,
     L40_modPowerClasses,

     modSondageList;


type
    TPowerSondagePlayer = class(TPowerPlayer)
    private

        // Date prévu pour le prochain envoi
        FSondageDernierEnvoiPrevuPour: int64;
        FSondageEnCours: boolean;
        

        // Liste de planète à sonder
        FSondagePlanetesList: TCollectionPlaneteASonder;

    public

       property SondagePlanetesList: TCollectionPlaneteASonder read FSondagePlanetesList;

       procedure OnTimer; override;

       constructor Create;
       destructor Destroy; override;

    end;


implementation

constructor TPowerSondagePlayer.Create;
begin
    inherited Create;

    FSondagePlanetesList := TCollectionPlaneteASonder.Create;
end;

destructor TPowerSondagePlayer.Destroy;
begin

    FSondagePlanetesList.Free;
    
    inherited Destroy;
end;

procedure TPowerSondagePlayer.OnTimer;
begin

    // ATTENTION: Il faut rentrer dans le timer si iMustRelogin est à true
    // car c'est lui qui indique qu'il faut faire l'auto relogin

    inherited OnTimer;




end;

end.
